perm filename SUS[M11,LCS]1 blob
sn#398769 filedate 1978-11-29 generic text, type T, neo UTF8
SRT←12800;
INS 0 1; < INSTRUMENT 1
OSC P4 P3 B2 F2 P29;
<OPT P4 P3 B2 F2 P29;
OUT B2 B1;END; < ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 2 2 1 1; <SINE WAVE
INSTRUMENTS;
SIMP 1 5 FREQ 3 ;
END;
< SINE .SCR -- RANDOM NUMBER= 1
PLAY;
SIMP 0.000 .2 C*2 900.0;
SIMP .2,, D*2;
SIMP .4 .4 E*2;
SIMP P1+P2 .4 G*2;
SIMP P1+P2 .4 G*2;
SIMP P1+P2 .4 A*2;
SIMP P1+P2 .4 G*2;
SIMP P1+P2 .4 E*2;
SIMP P1+P2 .4 C*2;
SIMP P1+P2 .2 C*2;
SIMP P1+P2 .2 D*2;
SIMP P1+P2 .4 E*2;
SIMP P1+P2 .4 E*2;
SIMP P1+P2 .4 D*2;
SIMP P1+P2 .4 C*2;
SIMP P1+P2 1.2 D*2;
FINISH; < SINE .SCR